;redcode
;name Leprechaun 1b
;author Anders Ivner
;contact d91andiv@und.ida.liu.se
;group A
;strategy Combined Bomber/B-scanner, giving a total speed of 67% of c

step	equ	5016

boot	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	<spt,		<dpt
	mov	bomb2+1,	bomb+17+2500
spt	jmp	start+2500,	bomb2+1
dpt	dat		#bomb2+2501

loop	add	#step,		eye
start	mov	bomb,		@eye
eye	jmz	loop,		@step+test+20
test	mov	eye,		@dp1
	mov	bomb2,		@eye-20
dp1	mov	bomb,		<eye-20
pt	jmn	loop,		test
bomb	spl	0,		<-20
	mov	16,		<test
bomb2	jmp	-1,		0

	dat	<-21,		<-22

	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#1
	dat		#0

	dat		#1
	dat		#1
	dat		#1

	end	boot